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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPHENT CORPORATION, MAYNARD, MASSACHUSETTS. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND oor ace 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oORPORAT Oke NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 1 etme OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
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FACILITY: 
VAX/VMS 1/0 SUBSYSTEM 
ABSTRACT: 
SYSTEM PERMANENT DEVICE DATABASE 


AUTHOR: 
R.HEINEN 3-AUG-76 


MODIFIED BY: 


v04-001 pusoss Benn Schreiber 6-SEP-1984 
Must dpt_store fields for cloneable opa ucb. 


V03-023 WHM0003 Bill Matthews 19-Jul-1984 
Make OPASIDB global for use 4 OPDRVWS1. 


V03-022 LMP0275 Mark Pilant, 12-Jul-1984 19:51 
Initialize the ati info in the ORB to be a null descriptor 
List rpyner than an empty queue. This avoids the overhead 
of locki ng ene unlocking the ACL mutex, only to find out 


that the ACL was empty. 

v03-021 CDS0003 Christian D, Saether 11-May-1984 
Reflect change of web size in net$web. 

v03-020 EMD0092 Elle Dusseault 30-Apr-1984 


Add DEVSM_NNM PR ike RM 4 to DEVCHAR2 for the 


: 
DEVICEDAT - VAX/VMS SYSTEM PERMANENT DEVICE DATABA 16-SEP-1984 :4 AX/VMS M he P 
Maree Peer] a Re POi88ieg PANE eS acre WOR TOO 2 | Pee i, 


console and mall box devices so that they will have 


prevents SASSIGN from trying to take out 
system disk before locking is enabled. 


V03-011 CWH3001 CW Hobbs 55-Jul-1983 
Increase size of operator mailbox (MBA2:) to 2560 
byte maximum messages. This will support the security 
message of 2048 bytes + various headers rounded up to 
nearest page. 


the prefix ' . 
v03-019 LMP0221 . Mark Pilant, O-Mar-1984 12:35 
Move UCB protect on information to the object's Rights Block. 
v03-018 PRDO072 aul R. DeStefano 27-F eb-1984 
Add SB$L_CSB cin” to newest Cluster System Block) 

5 to permanent local system block. 
0 V03-017 WHM0002 Bill Matthews 27-F eb-1984 
8 Add support for 4 units in the OPA IDB for VENUS. 
0 8 V03-016 WHM0001 Bill Matthews 6-F eb-1984 
8 9 Add support for new IDB fields for combo style devices. 
000 v03-015 LMP0185 Mark Pilant, 11-Feb-1984 9:08 
3 ° Add support for th os ACLs. 
000 v03-014 MMD0224 Meg Dum 23-Jan-1984 10:15 
8 5 Add longword to store oy Asynch DDCMP driver DPT 
000 v03-013 JLV0319 16-DEC-1983 
000 Add TTY$GL soacTi hs, eyssel_UIS, UISSGL_USB, and 
: $ SYS$GL_F ALCBACK 
000 v03-012 TCM0001 Trudy C. Mat 12-Sep-1 995 
000 initialize the boot device’ ; “UEBSu, REFC field to 1. This 
000 a lock ad the 
000 
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V03-010 RLRDPORT Robert L. Reppagert 25-May-1983 
Increase size of Boot Device UC 

v03-009 ROW0187 Ralph 0. Weber gta | 
10 Eto yee Coteutt butter size of null device from 132 
to 

v03-008 ROWO0172 Ralph 0. Weber 10-APR-1983 
Change null device bce device type to DT$_NULL. 

V03-007 DWT0066 David W. Thiel 20-Jan-1983 
Update definition of the hes system block. 

V03-006 MIROO22 Michael I. Rosenblum 19-Jan-1983 


Change Console terminal port vector table to use the 
new vector creation macros. 


v03-005 KTA3022 Kerbey T. Altmann 29-Dec-1982 
Add permanent local system block. 
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~SEP-1984 SYS.SRCIDEVICEDAT.MAR;2 (1) 
V03-004 cos000e Christian D. Saether 27-Dec-1982 
Reflect move of WCB cells in NETSWCB::. 
v03-003 ¢CDS0001 Christian D. Saether 13-Dec-1982 
Fix problems with WCB growing a longword. 
v03-002 now les Ralph 0. Weber 12-SEP-1982 


x UCB macro so that it needs no ASSUMEs. Have it us 
$uCBD F constants an .BLKBs to define fill space rather than 
numeric constants. 


v03-001 p.soies Benn Schreiber 25-Aug-1982 
ceergentae OPAO: data structures for loadable console 
terminal support. 


; SYMBOL DEFINITIONS 


Se Se Se Ge Ge Ge Ge Se Se Se Se Ge Ge te Ge Se Se Ge 


SCRBDEF 3; DEFINE CRB 

SOCDEF ; DEFINE DEVICE CLASSES 

SDDBDEF : DEFINE DDB 

SDEVDEF 3; DEFINE DEVICE CHARACTERISTICS 

pare 3 STRUCTURE TYPE CODE DEFINITIONS 
SIDBDEF ; DEFINE IDB 

SIPLDEF ; DEFINE IPL LEVELS 

SIRPDEF ; DEFINE IRP OFFSETS 

het 3; OBJECT'S RIGHTS BLOCK OFFSETS 

STTDEF ; DEFINE TERMINAL CHARACTERISTICS 
SUCBDEF 3; DEFINE UCB 

STTYDEFS 3; TTY UCB extension (must FOLLOW SUCBDEF) 
STTYMACS ; THE TERMINAL DRIVER MACRO DEFINITIONS 
SVECDEF ; DEFINE CRB VECTOR 

SWCBDEF ; Define WCB 


: LOCAL MACROS 
. .MACRO ORB LABEL, ?EN, 2ACL 


ORBASE=. 
LABEL: : 
“WORD =1,0 : ACL MUTEX INITIALIZATION 


-BYTE NSC_ORB 
-BYTE ORBEA PROT_1 
-BLKB ORBSK -CENGTH” - <. > LABEL> 


-MACRO STO_ORB OFFSET,SIZE,VALUE 


X=. 
- =ORBASE+ORB$ ‘OF FSET 
{SIZE "VALUE 


“ENDM 
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-MACRO UCB LABEL ,EXPAND=0,ORB_ADDR,?I0L,7EN, 2ACL 


es 


x 
«WORD N-LABEL 
-BYTE YNSC_UCB 


-BLKB UCBSL_ORB = <. = LABEL> 
LONG ORB_A 
; LKB UCBSL_IOQFL = <. = LABEL> 


; G L,1OL 
“BLKB UCB$K_LENGTH = <. = LABEL> 
. EXPAND 


_ 
°o 
- 
— 


«ENDM 
— STO_UCB OFFSET,SIZE,VALUE 


> t's ape? hel 
— ALUE 


"ENDM 
ASSUME poet 


DDBSB_ 
ASSUME DDBS$L-DDT 
ASSUME DDBSL ACPD EQ 


“vy a # POS BERT EE DOT PRE AT VT’ EEO AON, TER 


EQ 0 
EQ 4 
EQ 8 
EQ 10 
EQ 12 

16 


: 


G FUCB 
WORD EN-'NAME 
~BYTE DYNS$C_DDB,0 


sale wee 


= b8 
ert bpes SB B ACALSB 
="NAME+DDB$C_CENGTH 


~ENDM 
-PSECT $$$100,QUAD,WRT 
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m 
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ATABASE LIST HEADS “SEP=1 SYS.SR CID 
: ~SBTTL SYSTEM DEVICE DATABASE LIST HEADS 
; SYSTEM ADAPTER CONTROL BLOCK (ADP) LIST HEAD 


LOCS$GL_ADPLIST:: ; 
-LONG QO 3 
: SYSTEM DRIVER PROLOGUE LIST HEAD 
LOCSGL_DPTLIST:: ; 
.LONG } = LOC $GL_DPTLIST ; 
.LONG JOCS$GL“DPTLIST ; 
: TERMINAL CLASS DRIVER DPT POINTER 
TTYSGL_DPT:: ; 
-LONG 0O j 
: Asynch Class driver DPT pointer 
NOSGL_DPT: : : 
-LONG O ; 
: ADDRESS OF JOB CONTROLLER MAILBOX 
TTYSGL _JOBCTLMB: : : 
ADDRESS SYS$GL_JOBCTLMB : 


; ADDRESS OF LOADED UIS CODE 

SYSS$GL_UIS:: 
.LONG 0 

; ADDRESS OF UIS CONTEXT BLOCK 


UIS$GL_USB: : 
-LONG 0 


: ADDRESS OF SYSTEM WIDE FALLBACK TABLE 
SYS$GL_FALLBACK:: 
.LONG 0 


: 
: 
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PERMAN CAL SCS SYSTEM BLOCK 6=SEP=1984 t 98 9: 48 UoYS SRCIDEVICEDAT-MAR:2 
64 .SBTTL PERMANENT LOCAL SCS SYSTEM BLOCK 
66 > LOCAL SB 
6 ° 
68 SCS$GA_LOCALSB:: 
00000000" $9 .LONG  $CS$GQ_CONFIG : SBSL_FLINK 
00000000° 0 “LONG SCS$GQ~CONFIG ; SBS$L~BLINK 
0060 71 <WORD SBSK_LENGTH : SBSW~SIZE 
60 ce “BYTE DYNSCT_SCS : SBSB-TYPE 
0 7 “BYTE DYNSC~SCS_SB : SB$B~SUBTYP 
74 ASSUME S851 _PBFL EQ 12 
99000030" 0 75 10S: . LONG O$ : SBSL_PBFL 
0000030' £6 LONG 10$ : SB$L~PBBL 
0 7 ASSUME SBSL_PBCONNX EQ 20 
00000000 0 78 LONG ; SBSL_PBCONNX 
0 79 ASSUME SBSB_SYSTEMID EQ 24 
00000000 00000000 0 80 QUAD : SBSB_SYSTEMID 
0 81 ASSUME SBSW_MAXDG EQ 32 
00000000 6 Be .LONG 0 : SBSW_MAXDG 
a : SBSWIMAXMSG 
00 84 ASSUME SBST_SWTYPE EQ 36 
00000000 004 85 LONG ; SBST_SWTYPE 
00.C 286 ASSUME SBST_SWVERS EQ 40 
00000000 004C 287 LONG ; SBST_SWVERS 
0050 288 ASSUME SB$Q_SWINCARN EQ 44 
00000000 00000000 0050 289 QUAD ; SBSQ_SWINCARN 
0058 290 ASSUME SBST_HWTYPE EQ 52 
00000000 0058 291 . LONG ; SBST_HWTYPE 
005¢ 39 ASSUME SBSB_HWVERS EQ 56 
00000068 005¢ 29 .BLKB. 1 ; SBSB_HWVERS 
0068 294 ASSUME SB$T_NODENAME EQ 68 
00000078 0068 295 .BLKB. 1 ; SBST_NODENAME 
0078 3 ASSUME SBS$L_DDB EQ 84 
0078 98 : SYSTEM DEVICE DATA BLOCK (DDB) LIST HEAD (NOTE: PART OF THE SB!!!) 
0078 $00 focseL _DEVLIST: 
0000008c' 0078 301 LONG * SYSS$GL_BOOTDDB : START DEVICE LIST AT BOOT DEVICE 
007¢ 08 : SBSL_DDB 
007¢ 30 
007C 304 ASSUME SBSW_TIMEOUT EQ 88 
FFFE O007C 305 .WORD  =2 : LOOKS LIKE TIMEOUT IS IN PROGRESS 
O7E 306 ASSUME SBS$B_ENBMSK EQ 90 
00000080 ove 07 .BLKB  SBSS"ENBMSK ; PROCESS POLL ENABLE MASK 
$80 09 ASSUME SBSL_CSB EQ 92 
00000000 0 0 10 .LONG 0 ; SBSL_CSB 
00000084 0 4 I .BLKB SBSK_LENGTH-<.-SCSS$GA_LOCALSB> ; SPACE FOR REMAINING FIELDS 
0000008C 0084 14 -BLKB 8 :; Future expansion 
] 
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~SBTTL SYSTEM BOOT DEVICE DATABASE 
BOOT DEVICE DDB 


Sete te te Se 


Bo00TO 
ONG ,<*xX010001> 
st a BOOTORB 


YTE,21 
LONG, §YS$GL_BOOTDDB 
CHAR , LONG, <<BEVSM_ FOD!=- 
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STE 
DEV 
1 
12 : | 
i | 
O° pbB SYS$GL_BOOTDDB,OPASGL_DDB, SYS$GL_BOOTUCB, 0. <F11>,1 
gi : UCB FOR SYSTEM BOOT DEVICE | 
s Py 
: : NOTE = THE UCB FOR THE BOOT DEVICE IS CREATED WITH A REFERENCE COUNT OF 1 
* TO AVOID HAVING THE FIRST $ASSIGN TRY TO TAKE OUT A LOCK ON IT BEFORE 
8 LOCKING IS ENABLED 
0 
4 
5 
i 
: 
9 
40 
41 
2g 
4b 
45 
46 
si 
48 
49 
| 
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COONCOoOSO 
>Proovond 
roonn 


So 

So 

J 

So 
Cooooo 


404 
i 
209 OP _DPTEN ND: 


-PSECT $$$105_PROLOGUE,RD,WRT,BYTE 


Put OP_DPTEND Label in cor 
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Vv Mt SYSTEM CONSOLE DEVICE DATABASE 6-SEP- 71882 9 99: 4§ Leys. ERC TOE VICE DAT.MAR;2 . 3) 
.SBTTL SYSTEM CONSOLE DEVICE DATABASE 
; | 
33 CONSOLE TERMINAL DDB | 
28 5 bdB OPASGL_DDB,,MBSGL_DDB, OPASUCB0,,,0,<OPA>,<OPERATOR> | 
9¢ 5 : CONSOLE DPT 
ae 
9C 360 : THE UCB SIZE INCLUDES 3 8 BYTE FOR ROUNDUP, AND 64 BYTES OF EXTRA | 
oC $e 3 srace TO ALLOW INCREASING SIZE WITHOUT NEEDING TO BUILD A NEW 
9¢ : : 
0000 44 rt: opsert -PSECT $$$105_PROLOGUE,RD,WRT,BYTE ; Ensure OPS$DPT Label points to DPT 
00000 $c 66 spsect $$$100,QUAD,WRT ; (DPTAB macro puts DPTAB in $$$105_ 
0 9C 368 END=OP_DPTEND,~ 
9C 4 ADAPTER=UBA, AKE ADAPTER 
029¢ 0 UCBSIZE=<<cUCBSC_ TT _LENGTH#S564>/4>"4>, ° 
029¢ 371 NAME =OPERATOR 
029¢ es VECTOR=OPASVECTOR 
0038 37 
0038 74 DPT_STORE INIT 
038 375 DPT“STORE UCB,UCBSL_TT_DECHAR, al. TTYS$GL -DEF CHAR : DEFAULT CHARACTERISTICS 
OO3F 376 DPT“STORE UCB,UCBSL_TT~DECHA1,@ UL TTYSGL- “DEFC AR2 
0046 377 DPT“STORE UCB,UCBSL_DEVDEPEND, aL, TTY$GL_ ~DEF CHA 
004D 378 DPT"STORE UCB,UCBSL_TT_DEVDP1 et: sTTVSet" DEF CHAR2 
0054 379 DPT“STORE UCB,UCB$B_FIPL.B, 8 : FORK TPL 
0058 380 DPT“STORE UCB.UCB$B_DIPL.B,20 DEVICE IPL 
005c =. 381 DPT“STORE UCB,UCBSL “DEVCHAR,L <=; CHARACTERISTICS 
005¢ Be DEVSM_REC!~ ; 
005c «= 38 DEVSM~AVLi- ; 
005¢ 84 DEVSM~IDVi- ; 
05¢ 385 DEV$M~ODVi- F 
005¢ 86 DEVSM TRA! ; 
O0¢§ 838 DPT_STORE UCB, ben DEVCHAR2, L.-s DEVICE CHARACTERISTICS 
006 89 <DEVSM_NNM> PREFIX WITH ‘NODES’ 
06A 390 DPT_STORE ucB. UCB$B_ DEVCLASS B pis TE TERM 
06 91 DPT“STORE UCB,UCB$B_DEVT 256° f $9N KNOWN > TYPE 
0 3¢ DPT “STORE 8 UCBSUT DEVBUF S{2, : BUFFER SIZE 
007 9 DPT“STORE UCB.UCBSW-STS,W Oca’ OW INE ; De vice comes up online 
7C 39% DPT“STORE UCB.UCB$W_TT -BESIZE. Wri : BUFFER SIZE 
81 395 DPT“STORE UCB.UCBSW-TT~SPEED,W, fT $c pA D.300 DEFAULT SPEED 
6 39 DPT“STORE UCB.UCBSB_TT-DETYPE 8,1 ; TYPE 
08a 39 DPT“STORE UCB.UCB$W-TT-DESPEE.w, trate BAUD. 300; 
O8F 39 DPT“STORE ORB.ORB$B_FLAGS,B,- 
3 9 <ORBSM 3; SOGW protect tex word 
3 ©6400 DPT_STORE ORB,ORBS$W_PROT,awW er eseu. PROT ; Default protection 
9A 401 DPT“STORE UCB,UCB$W~STS,W,UCBSM_ONC INE : Device comes up online 
40 DPT_STORE pe INET : Is this needed? 
DPT“STORE END 
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DEVICEDAT - VA TEM PERMANENT DEVICE patasa 16-SEP-1984 00:00:42 VAX/VMS Macro v04-00 P 1 
vret SYST E DEVICE DATABASE gree ibe Poi8hic§ PANCMES Bacco VOR TOO 2 Page 10, 
0054" 65 .WORD CD-OPASCRE ; Size 
if : “BYE YNSC_CRB ; vee Is CRB 
000000 ? g “LONG + REF COUNT=1 AND NEVER BUSY 
5 ASSUME FRBSL_AUXSTRUC EQ 16 
00000000 4 LONG ; Auxiliary structure ptr. 
7 ASSUME CRBSL_TIMELINK €Q 20 
00000000 78 LONG § "3 ; CRB thread for periodic wakeups. 
75 ASSUME CRBSL_DUETIME £0 24 
00000000 6 LONG § x ; Time when to periodically awaken 
7 ASSUME CRBSL_TOUTROUT EQ 28 
00000000 9 - LONG : * z Routine to call at periodic awakening 
1 ASSUME CRBSL_LINK —Q 32 
00000000 é .LONG O : NO NEXT CRB 
CONSINTDISI:: : 
4 ASSUME CONSINTDISI-OPASCRB Eo CRBSL_INTD 
8 ASSUME VEC$Q_DISPATCH EQ 
3F = sBB PUSHR #*M<RO,R1,R2.R3,R4,R5> =; SAVE REGISTERS 
00000000'°GF 16 8 JSB G*CONSINTINP : INPUT INTERRUPT SERVICE 
90 ASSUME VECS$L_IDB eo 8 
0000048C' ise .LONG OPASIOB : POINTER TO IDB 
49 ASSUME VECSL_INITIAL EQ 12 
00000000' 494 .LONG CONSIRITIAL ; INITIALIZE CONTROLLER ENTRY POINT 
49 ASSUME VECSW_MAPREG £0 1 
RA te 
00000000 49 cf ee ; MAP AND DATA PATH ALLOCATION CONTROL 
ASSUME VECSL_ADP EQ 20 
00000000 .LONG 0 ; ADDRESS OF ADP 


ASSUME VECSL_UNITINIT EQ 24 
LONG CONSIRITLINE 


ASSUME FECL START EQ 28 


ASSUME VECSL_UNITDISC EQ 32 
ASSUME VECSK_LENGTY EQ 36 
CONSINTDISO:: 
ASSUM 


00000000" INITIALIZE UNIT 


00060000 UNUSED LONGWORD 


00000000 ; UNUSED LONGWORD 
E CONSINTDISO-OPASCRB £0 CRBSL_INTD2 
ASSUME VECSQ_DISPATCH. £0 

PUSHR SAVE REGISTERS 


5 FW <RO R1,R2,R3,R4,R5> : SAV 
JSB G*CONSINTOUT : OUTPUT INTERRUPT SERVICE 
.LONG OPASIDB * POINTER TO 1DB 


3F 98 
00000000 ' GF 6 
0000048C* 
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DEVICEDAT = VAX/VMS SYSTEM PERMANENT DEVICE”DASABA 1 :42 VAX/VMS Macro v04- 
Mae SYSTEM CONSOLE DEVICE DATABASE SSE TE8s PB:90:2s PSNVSS Gave yOseOo «6 Page TI, 
4BC 
4c $22 ASSUME VECSL_108 eo 8 
oe 
4B¢ ‘ ; CONSOLE IDB 
4BC : OPASIDB: : 
“BC ASSUME IDBSL_CSR Eo 0 
00000000 i 0 ‘ione, Oe : CSR ADDRESS 
éc ASSUME I[DBSL_OWNER £0 4 
00009000 4C : . LONG “3 ; OWNER UCB ADDRESS 
0664 83% “GORD  [D-OPASIDB : SIZ 
9 O66 955 “BYTE DYNSC_1D8 : TYPE OF STRUCTURE 
00 o4¢ 6 "BYTE : UNUSED 
act ASSUME IDBSW_UNITS £0 12 
0005 d4c § "WORD - : NUMBER OF UNITS 
00 O4ca 540 cBYTE : TT ENABLE 
00 o4cB 54) "BYTE : CSR OFFSET TO MAIN CSR FOR COMBO STYLE DEV 
bere 58 ASSUME pose. COMBO_VECTOR_OFFSET EO 16 
00 4CC 44 -BYTE VECTOR OFFSET TO MAIN VECTOR FOR COMBO STY 
000s pace 546 “BYTE 8 ; UNUSED 
400 54 : ; 
400 548 ASSUME IDBSL_ADP Eo 20 
00000000 0400 if ~ LONG i ™ ; ADAPTER ADDRESS 
4485) ASSUME IDBSL_UCBLST £0 24 
00002F4" O4p4 352 LONG OPASUCBO : UNIT 0 UCB ADDRESS 
0000000 408 55 LONG ; UNIT 1 UCB ADDRESS (FLOPPY) 
00000000 O4pc 554 “LONG i UNIT 1 INPUT UCB ADDRESS (FLOPPY) 
00000000 O40 $55 "CONG i UNIT $ USED BY. VENUS ONL 
00000000 O4E4 556 "CONG : UNIT 4 (RESERV 
00000000 0468 337 CONG 0 : UNIT § (RESERVED? 


1 
VICEDAT = VAX/VMS SYSTEM PERMANENT DEVIC pataga 16=SEP=1 :42  VAX/VMS ¥04-00 
vou .004 SYSTEM PERMANENT MAILBOX DATABASE g- SEF} 38 9: 99: 48 Heys eR SR ci VICEDAT. MAR; 2 
dE to .SBTTL SYSTEM PERMANENT MAILBOX DATABASE 
eh 
4eC 63 : MAILBOX DDB 
4 ge DDB MBSGL_DDB,NLSGL_DDB,MBS$GL_UCB1,MBSDDT, ,0,<MBA>, <MBDRIVER> 
: ‘ ; CLONE MAILBOX UCB 
5 : 
5 $3 ; NOTE THAT THIS UCB IS NOT IN THE DDB'S UCB LIST 
3 re ORB MBSORB 
58 7 $T0_ORB L,0 WNER LONG, <*x010001> 
5 74 UCB me$ucB0,0, mBSORB 
061 75 STO_UCB W_MB_S GorD ,0 
61 id: STO-UCB B-FIPL, “arte. IPL$_MAILBOX 
618 57 STO-UCB B-DIPL,BYTE, IPL$_MAILBOX 
61 378 STO-UCB WIMSGMAX WORD, 20~ 
0618 57 STO-UCB W~BUFQUO,WORD,- 
061 380 STO-UCB L"CRB,LONG,SY$_CRB 
618 581 STO-UCB L~DDB,LONG,MBSGL DDB 
0618 5 ‘ STO-UCB LL INK “LON NG ,MBSGC_U 
061 STO-UCB L BEVCHAR "LONG, <<BEVSR_ REC!- 
061 4 DEVSM_AVL! 
61 85 DEVSM~1DVi- 
0618 586 DEVSM~MBX i= 
061 387 DEVSM_ODV = 
061 88 DEVSM~ SHR>> 
0618 89 STO_UCB L_DEVCHAR2,LONG, <<DEVSM NNM>> 
061 90 STO-UCB B-DEVCLASS BYTE. gosh MAICBO 
061 91 STO-UCB B =DEVTYP E BYT 
061 36 STO-UCB W-DEVBUF SIZ "UORD. 35g 
061 9 STO-UCB WORE C WORD} 
061 94 STO-UCB W-UNIT.WORD.O 
061 95 STO-UCB W7STS,WORD,UCBSM_ONLINE 
061 36 STO-UCB WIDEVSTS ,WORD,UCBSM_PRMMBX 
61 9 STO-UCB L“DDT, LONG MBSDOT 
61 98 MBSMBO_END: 
00000090 61 $99 SYS$C_MBXUCBSIZ == <MBSMBO_END - MBSUCBO> 
61 601 ; 
Oe 6 gi: : SYSTEM JOB CONTROLLER MAILBOX 
3 g % §YS$GL_JOBCTLMB:: 
3141424D 061 6 5 SYS$C JOBE TLABS="A/MBAN/ 
61 6 UCB MBSGL_UCB1,0, MBSGL_ORB1 
6A8 6 $TO_UCB L_FOFL LON NG, “psc. UCB cB1 
6A8 6 : STO-UCB L-FQFL+4,LONG MB GL_UCB1 
6AB 6 STO-UCB B-FIPL, BYTE, IPL$_MATLBOX 
6A 610 STO-UCB B-DIPL.BYTE 1PL “MAILBOX 
6A8 61 STO-UCB WIMSGMAX , WORD, 
6A 61g STO-UCB W~BUFQUO,WORD,- 
6A 61 STO-UCB L7CRB.LONG, sv CRB 
6A 14 STO-UCB L7DDB.LONG,MBSGL_DDB 
AB «4615 STO-UCB L~LINK,LONG MBSGC_UCB2 
AB 616 STO-UCB L~DEVCHAR, LONG, <<BEV$M_REC!- 
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SYSTEM OPERATOR MAILBOX 
$GL_OPRMBX: : 


S 
S$C_ 


$ 
“MAILBOX 
CRB 
DDB 
2DEVSM_REC!- 


: 


MBS$GL_ORB2 
Pay 
IP 
BYTE, IP 
X,WORD, 
B,LONG, SY$ 
MBS 

LONG,< 


DB 
Vv 
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MBSGL 
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D VICEDAT = VAX SYSTEM PERMANENT DEVIC 
v04-001 NULL CE (NLA) DATABASE 
NLA DDB 
DDB 


ORB 
uCcB 


/VMS 
DEVI 
7E 
fe 
7E 
7? 
C 
C 
C 
4 
4 
914 
914 
914 
914 
914 
914 
914 
914 
0914 
0914 
0914 
914 
914 
914 
0914 
0914 


NL UCB FOR UNIT 


Soabon SESE INS AESONHS OME BETTIE 2 PO | 


-SBTTL NULL DEVICE (NLA) DATABASE 


NLSGL_DDB,0,NLSGL_UCBO,NLSDDT,,0,<NLA>,<NLDRIVER> 


°° SPUNER 0 LONG, <0X010001> 
ucB Be oy NL 6 R 


“DIPL, BYTE 

“CRB, LONG, SYS_CRB 
“DDB, LONG ,NL$GL_DDB 

eDEV CHAR L CONG, <2DEVSM_REC!- 

$M~MBX i - 

$M~IDVi- 

$M"0 

$M_SHR>> 

EVCLASS ,BYTE,DC$_MAILBOX 

EVTYPE BYTE ,OT$ 

EVBUF S $17 ,woRD, 512 

“REFC,WORD, 1 

IT. W 

S 

T 


R 
“UNIT. WORD. 

“STS ,WORD,UCBSM_ONLINE 
“DDT; LONG.NLSDDT 
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vbue 1 NETWORK DEVICE DATABASE g- ~SEP-1984 4 98 9: § USYS SRCIDEVICEDAT MAR: 2 get | * 
9i4 95 .SBTTL NETWORK DEVICE DATABASE 
$14 : NETWORK DEVICE DATA BLOCK 
914 : 
916 ie ; NETWORK WINDOW CONTROL BLOCK - SHARED BY ALL UCB'S 
914 7 : NETSWCB:: 
Soe HT a ain : te 
803 ' 091C 705 “WORD 10$-NETSWCB : SIZE 
1 IE 7 : “BYTE DYNSC_WCB : CALL IT A WCB 
91F 4 8 ASSUME WCBSB_ACCESS EQ 11 
00 O91F £09 .BYTE 0 ; ACCESS BITS 
9 711 ASSUME WCBSL_PID EQ 12 
00000000 0 tle a : PID 
924 714 ASSUME WCBSL_ORGUCB £0 16 
00000000 09 4 £19 .LONG OF ~ : ORGUCB 
09 oS ASSUME WCBS$W_ACON EQ 20 
09 8 r18 ASSUME WCBSW~NMAP EQ 22 
00000000 ; 8 £19 .LONG 0 ; ACON AND NMAP 
92¢ 721 ASSUME WCBSL_FCB EQ 24 
00000000 3 ¢ , g .LONG 0 : FCB 
330 726 ASSUME WCBSL_RVT EQ 28 
00000000 3 0 , 5 .LONG 0 : RVT 
33 7 5 ASSUME WCBSL_LINK EQ 32 
00000000 934 f 3 .LONG 0 : LINK 
0938 730 ASSUME WCBSL_READS EQ 36 
00000000 938 , 1 .LONG 0 ; READS EXECUTED 
oe 7 i ASSUME WCBSL_WRITES £0 40 
00000000 95¢ , 4 .LONG 0 ; WRITES EXECUTED 
$40 7 6 ASSUME WCBSL_STVBN EQ 44 
00000000 0940 7 .LONG 0 : ACCESS LOCK ID 
944 g 8 ASSUME WCBSK_LENGTH 0 48 
944 10S: 
ai Ht 
344 4g ; COMMON CRB FOR MAILBOX TYPE DEVICES 
944 746 SYS_CRB: ; 
_ aes Bee be tONe leo sys cRB 4 pee eres 
94E nS “BYTE DYNSC_CRB : TYPE 
0 94F 748 “BYTE : SPARE BYTE 
000000 950 74 * LONG : REF COUNT 
954 £30 ASSUME CRBSL_AUXSTRUC EQ 16 
00000000 0954 7 LONG ; Auxiliary structure ptr. 
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ASSUME gPOO., FORE T EQ 20 


00000000 ; CRB thread for periodic wakeups. 


ASSUME CRBSL_DUETIME EQ 24 
00000000 - LONG 7 z ; Time when to periodically awaken 


wie ra, evra EQ 28 


00000000 «LON 


; Routine to call at periodic awakening 


ASSUME EPSOL Lm EQ 

00000000 - LONG 3; NO NEXT CRB 
ASSUME .-SYS_CRB EQ enti 
ASSUME pe,Ss PL SPAree EQ 
- LONG 0 ; NO INTERRUPT VECTOR 
ASSUME VECSL_1DB EQ 8 

00000944" -LONG SYS_CRB ; POINTER TO FAKE IDB 
ASSUME VECSL_INITIAL EQ 12 
ASSUME VECS$W"MAPREG EQ 16 
ASSUME VECSB_NUMREG EQ 18 
ASSUME VECSBIDATAPATH EQ 19 
ASSUME VECSL_ADP EQ $e 
ASSUME VECSL_UNITINIT EQ 24 

9 ASSUME VECS$L-START EQ ¢§ 

ASSUME VECSL_UNITDISC EQ 52 
LONG 0,0,0,0,0,0 ; NO INITIALIZATION FOR CONTROLLER OR UNIT 


00000000 00000000 sta 4 


0 00000000 
00000 000 


00000 


36 


K 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
; 

00000000 00000000 ; 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
3 
3 ASSUME VECSK_LENGTH 
9 


10$: 


AYE WN |=  OWOONOULS WN OOONAUE WN OOONOUS Uy 


ASSUME 10$-SYS_CRB EQ CRBSL_INTD2 


DEVICEDAT 
Symbol table 


$$$ 
$$OP 
AT$_UBA 
CD 


CONSABORT 
FONE L SEOMECT 


CONSRE SUME 
CONSSET_LINE 
CONSSET MODEM 
CONSSTARTIO 


CONSSTOP 
CONSSTOP2 
CONSXOF F 


CONSXON 
CRBSL_AUXSTRUC 
CRBSL _DUET IME 


“IN 
CRBSL_INTD2 
CRBSL_LINK 
CRBSL_TIMELINK 
CRB$L- TOUTROUT 
DC$_DTSK 
DC$_MAILBOX 
DC$_ TERM 
DDBSB_TYPE 
DDBSC_LENGTH 
DDBSL_ACPD 
DDBSL~DDT 
DDBSL_LINK 
DDBSL_SB 
ODBSL_UCB 
DDBST_DRVNAME 
DDBSW_SIZE 


DEVSM~TRM 
DPTS$C~LENGTH 
DPT$C~ VERSION 
DPTSIRITAB 


ReReeReee 
Reeeeeee 
RRERREEE 
RReeKEEE 
RRAERKERE 
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MBSGL-UCB2 
MBSMBO_END 
MBSORB 


ode oy Me 


ORBAS 
PORT_ ABORT 


OMBO_VECTOR_OFFSET 


RG 


BBB 2 222222222 DBDDBDBDDwD 


DOMOMAADAAD HS 


03 
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Symbol table g-SE b=} 984 93:99:25 LEYS SRCIDEVICEDAT.MAR; 2 . (8) 
PORT_DISCONNECT = 4 UCBSB_TT_DETYPE s oro 

“DS_SET = f UCBSC"LENGTH z 9 
PORT_LERGTH : UCBSC-TT_LENGTH 2 134 
PORT_RESUME = 4 UCBSK_LENGTH s 090 
PORT_SET_LINE = 8 UCBSL_CRB z 4 
PORT_SET MODEM s UCBS$L_DDB = 
PORT_STARTIO = 8 UCBSL_DDT s 
PORT_STOP = 0001 UCBSL_DEVCHAR = 0 
PORT_STOP2 = 0000 i UCBSL-DEVCHAR2 = 03C 
PORT_XOFF = 00000014 UCBS$L_DEVDEPEND = 00000044 
PORT_XON = 00000010 UCBSL_FQFL = 00000000 
SB$B8_ENBMSK = MOOR UCBSL-10QFL s 000004. 
SB$B_HWVERS = 000 UCBSL-LINK = 3 
SBSB_SYSTEMID = 900000) UCBS$L_ORB = tito 
SBSK_LENGTH = 00000 g UCBSL_TT_DECHA1 = 000000C 
SBSL_CSB = 0000005C UCBSL_TT_DECHAR = 000000C4 
SBSL_DDB = 00000054 UCBSL_TT_DEVDP1 = BO ObOnTD 
SBSL_PBCONNX = 00000014 UCBSM_ONC INE = 00000010 

_PBFL = 0000000C UCBSM_PRMMBX = 00000001 
SB$Q_SWINCARN = 0000002C UCB$W_BUF QUO = 00000018 

“ENBMSK = BOON UCB$W_DEVBUF SIZ = ttt 
SBST_HWTYPE = 00000034 UCBSW_DEVS = 0000006 
SBS$T_NODENAME = 00000044 UCB$W_MB_SEED = 00000000 
SBST"SWTYPE = 00000024 UCBSW_MSGMAX = 00000014 
SBST_SWVERS = 00000028 UCBSW_REFC = 0000005C 
SBSW_MAXDG = 4 $454 64 UCB$W_STS = 00000064 
SBSW_ TIME = 00000058 UCB$W_TT_DESIZE = 000000F 1 
SCSSGA_LOCALSB 00000024 RG =e «02 UCBSW_TT_DESPEE = 000000E8 
SCS$GQ_ CONFIG areeeeee XX 02 UCB$W_TT_ SPEED = 000000F 4 
SYS$C_JOBCT = 31414240 G UCBSW-UNTT = 00000054 
SYSS$C_MBXUCBS1Z = sep ety G UCBASE = 00000884 R 02 
SYS$C_OPR = 32414240 G UIS$GL_USB 900000 TE RG 02 
SYS$GC_BOOTDDB 0000008C RG 02 VEC$B_BATAPATH = 0000001 
SYS$GL_BOOTORB 44 se 44 RG 02 VEC$B_NUMREG = 00000012 
SYS$GL_BOOTUCB BRO hoOS RG 02 VECSK_LENGTH = 00000024 
SYS$GL_F ALLBACK 00000020 RG = 02 VECSL_ = 00000014 
SYS$GL_J 00000618 RG 8 VECSL_IDB = 00000008 
SYSS$GL_OPRMBX 44 $44 RG 0 VECSL_INITIAL = 0000000C 
SYS$GL_UIS 00000018 RG 02 VECSL_START = 0000001C 
SYS_CRB 00000944 R 02 VECSL_UNITDISC = 00000020 
TT$C_BAUD_ 300 = 00000006 VECSL_UNITINIT = 00000018 
TSM_LOWE = 00000080 VEC$Q_DISPATCH = git 
TTSM_TTSYNC = 00000020 VECSW_MAPREG = 00000010 
TT$M_WRAP = 90000 6 WCBSB_ACCESS = 38 30008 
TT$_CA36 z WCBSK_LENGTH = 0 
TTS _UNKNOWN = 00000000 WCBSL_FC = 00 ht 
TTYSGL_DEF CHAR tkeeeeee =X 08 WCBSL_LINK = 00000020 
TTYSGL_DEF CHAR2 eeeeeeee =X 0 WCB$L_ORGUCB = 00000010 
TTYSGL_DPT 000 0OF RG 02 WCBSL_PI = 0000000C 
TTY$GL— JOBCTLMB 0000014 RG O¢ WCBSL_READS = 000 bee 
TTY$GW- PROT teeeeeee =X = 0 WCBSL_RVT = 0000001C 
UCB$B_BEVCLASS = 00000040 WCBSL_STV = 0 4 
ueeae-bin : weeay-ACOn = Suaagote 
UCB$B_ERTCNT s WCBSW_NMAP = 00000016 
UCBS$B_ERTMAX = 09 38 x = 00000914 R 02 
UCB$B_F IPL = 00000008 
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Psect synopsis 66-SEP-1984 16:35:4 SYS.SRCIDEVICEDAT.MAR;2 ( 


pe wen nea cwmeccera= + 


! Psect synopsis ! 


$e ae nr ees naonaname + 


PSECT name Allocation PSECT No. Attributes 


> S. « 00000000 ( 8 99 ( Q.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
00000000 ¢ at 1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR- EXE RD WRT NOVEC BYTE 
100 4444 9445 ( 2444.) 6 ( ¢° NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC QUAD 
$$$105_PROLOCUE 00000DC ¢ 220.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
pawn w nem moana en - eer nen oee oo 
! Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.08 00:00:01.39 
Command processing 131 BF Bd 98 38 Ba? R908 - 1 
ass 524 HF 80:6 29 00:01:13.29 
Symbol table sort 0 00:00:02.98 00:00:09.25 
Pass 2 147 00:00:04.20 as SH 
Symbol table output 27 es SS 0:00:00.91 
Psect synopsis output 2 00:00:00.0 00:00:00.10 
Cross-reference output 0 es es Be de 
Assembler run totals 869 00:00:31.31 00:01:45.59 


The working set_ Limit was 1800 pages. 

121898 bytes (239 pages) of virtual memory were used to buffer phe intermediate code. 

There were 110 pages of symbol table space allocated to hold 1937 non-local and 25 local symbols. 
786 source Lines were read in Pass 1, producing 24 object records in Pass 2. 

60 pages of virtual memory were used to define 56 macros. 


$woewewcweccccecoocececesces} 


! Macro Library statistics : 
$ewmoeeeeoeeeeeeseeeeeeceess 


Macro library name Macros defined 
-$255$0UA28:CSYS.OBJJLIB.MLB; 1 23 
$255$DUA28: (SYSLIBISTARLET.MLB;2 7 


TOTALS (all Libraries) 30 
2373 GETS were required to define 30 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DEVICEDAT/OBJ=OBJ$:DEVICEDAT MSRC$:DEVICEDAT/UPDATE=(ENHS$:DEVICEDAT) +EXECMLS/LIB 
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